00010	BEGIN
00020	
00030	% THIS IS A PROGRAM NEEDED BY 'HAR000' AND 'TALK00'.  TO RECONSTRUCT THE DOCJOB CORE IMAGE:
00040	
00050		.R MLISPC					( COMPILE DOCJOB )
00060		*(MLISP DOCJOB T)
00070		*↑C
00080	
00090		.R LISP 14					( READ IN THE LAP CODE )
00100		ALLOC? Y
00110		FULL WDS=_					( _ MEANS <SPACE> )
00120		BIN.PROG.SP=3000_
00130		SPEC.PDL=_
00140		REG. PDL=_
00150		HASH=_
00160		*(DSKIN SYS: LAP DSK: (DOCJOB.LAP) (2 DAV) (MAIL.FNS) SYS: UTILS)
00170		*↑C
00180		.SAVE DOCJOB
00190	
00200	TO RUN THE PROGRAM, TYPE
00210		.RUN DOCJOB[1,SYL]
00220		*(RESTART)
00230	%
00240	
00250	
00260	
00270	PRINTSTR "
00280	IF THE SYSTEM GOES DOWN,
00290	YOU MAY HAVE TO RETYPE YOUR LAST QUESTION.
00300	WE WILL BE READY TO GO IN A MINUTE.
00310	
00320	";
00330	
00340	
00350	WHILE T DO EVAL WAIT_FOR_MAIL(T);	% GET AND EXECUTE A COMMAND FROM SOMEONE. %
00360	
00370	
00380	EXPR READ_MESSAGE ();			% A FUNCTION FOR READING THE DOCTOR'S MESSAGE. %
00390	   BEGIN  NEW L;
00400	      PRINTSTR "READY:";
00410	      TERPRI TERPRI DO NIL UNTIL CAR(L ← READCH() CONS L) EQ ALTMODE & CADR L EQ ALTMODE;
00420	      RETURN READLIST('?" CONS REVERSE('?" CONS CDDR L))
00430	   END;
00440	
00450	END.